(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     31141,        844]
NotebookOptionsPosition[     24550,        703]
NotebookOutlinePosition[     25722,        737]
CellTagsIndexPosition[     25643,        732]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["12.3", "HistoryData",
  CellTags->"New",ExpressionUUID->"ac31139f-601d-4c0c-a3a6-49b910dd8e1b"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified",ExpressionUUID->"41c26adb-fd78-4209-a4d5-4f24b475c869"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete",ExpressionUUID->"7c9875f3-da66-490b-b518-981e1f7e6837"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised",ExpressionUUID->"63b55cf2-94f6-4520-8a46-7378df3560b7"]
}], "History",
 CellChangeTimes->{{3.828009413405073*^9, 3.8280094137334833`*^9}},
 CellID->1247902091,ExpressionUUID->"41ad31a0-26a3-4ff8-927a-44db3e715f95"],

Cell["Created by: arnoudb on 04-21-2021 10:11:57", "AuthorDate",
 CellID->2016299425,ExpressionUUID->"0bcdcec1-3c1b-44af-b306-2fa91a2ee0d8"],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449,ExpressionUUID->"cafb9ccb-a6be-4c86-85f0-5849c5345f3a"],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507,ExpressionUUID->"d3672960-eef7-49f2-a47e-fce423fec36a"],

Cell["Prototypes", "Categorization",
 CellLabel->"Paclet Name",
 CellID->605800465,ExpressionUUID->"e9337bb6-80d8-4427-9444-53c8416845ec"],

Cell["Prototypes`", "Categorization",
 CellLabel->"Context",
 CellID->468444828,ExpressionUUID->"a09e9c4d-8ab9-4ae7-b585-c517016e8191"],

Cell["Prototypes/ref/Greener", "Categorization",
 CellLabel->"URI",ExpressionUUID->"f4c50626-70ea-4938-af51-c60e63c76466"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294,ExpressionUUID->"ef06640c-42c9-4c00-9a6c-9b632e3752b6"],

Cell["XXXX", "Keywords",
 CellID->1164421360,ExpressionUUID->"5526fed3-9f52-4745-8ea1-58ff8c36c14d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408,ExpressionUUID->"119176c2-887f-409f-a0c9-b72561b7624c"],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412,ExpressionUUID->"1b15e1f4-90c6-45fb-bbe0-ea52939f5d72"],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909,ExpressionUUID->"9e18a772-50d9-48d2-8436-649cdc9f97ec"],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930,ExpressionUUID->"1e946dbb-3373-40d7-b302-c6d742eac1b9"],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254,ExpressionUUID->"aee0c783-3703-4eff-afcc-bcf11e35c648"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Greener", "ObjectName",
 CellID->1224892054,ExpressionUUID->"8393d601-4014-44ba-afc9-60862df940ec"],

Cell[TextData[{
 Cell["   ", "ModInfo",ExpressionUUID->"56c2d6e0-ab51-47af-8843-a8712e6faf91"],
 Cell[BoxData[
  RowBox[{"Greener", "[", 
   StyleBox[
    ButtonBox["color",
     BaseStyle->"Link",
     ButtonData->"paclet:Prototypes/ref/color"], "TI"], "]"}]], 
  "InlineFormula",ExpressionUUID->"a831ee2b-0a40-4b55-90fd-a6512e678c0c"],
 " \[LineSeparator]blends ",
 Cell[BoxData[
  StyleBox[
   ButtonBox["color",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/color"], "TI"]], "InlineFormula",
  ExpressionUUID->"a8c3e91c-1cb4-4610-82cd-13bc5a20bfab"],
 " with ",
 Cell[BoxData[
  ButtonBox["Green",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "d9f37dfb-1799-4dd6-a5b6-2efb5caded0e"],
 " to make it greener.\n",
 Cell["   ", "ModInfo",ExpressionUUID->"d752b668-d54a-42a6-a7ee-75c8acefd5d0"],
 Cell[BoxData[
  RowBox[{
   ButtonBox["Greener",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/Greener"], "[", 
   RowBox[{
    StyleBox["color", "TI"], ",", 
    StyleBox["frac", "TI"]}], "]"}]], "InlineFormula",ExpressionUUID->
  "22420c27-c90a-4f14-b388-bf3c9327e77b"],
 "\[LineSeparator]blends ",
 Cell[BoxData[
  StyleBox[
   ButtonBox["color",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/color"], "TI"]], "InlineFormula",
  ExpressionUUID->"7ad4bf77-3e46-4c1e-b369-188d766bddf8"],
 " with ",
 Cell[BoxData[
  ButtonBox["Green",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "7882ee7a-7d8d-4525-bbc3-cf9163cc89c1"],
 " with the specified fraction ",
 Cell[BoxData[
  StyleBox[
   ButtonBox["frac",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/frac"], "TI"]], "InlineFormula",
  ExpressionUUID->"ff1949c2-f680-4957-932f-ba5a4c5c6648"],
 "."
}], "Usage",
 CellChangeTimes->{{3.8280045587753267`*^9, 3.8280047065744658`*^9}, {
  3.82800684619604*^9, 3.828006875422019*^9}, {3.828009440529945*^9, 
  3.8280094841554213`*^9}, {3.8280103388489637`*^9, 3.82801036353104*^9}},
 CellID->982511436,ExpressionUUID->"abc9463c-f4fe-465f-b4d2-0e83cf641444"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   ButtonBox["Greener",
    BaseStyle->"Link",
    ButtonData->"paclet:Prototypes/ref/Greener"], "[", 
   StyleBox["color", "TI"], "]"}]], "InlineFormula",ExpressionUUID->
  "65b023c7-595e-4450-b403-72fa68b3b20c"],
 " is equivalent to ",
 Cell[BoxData[
  RowBox[{
   ButtonBox["Blend",
    BaseStyle->"Link"], "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Green", ",", 
      StyleBox["color", "TI"]}], "}"}], ",", 
    RowBox[{"1", "/", "3"}]}], "]"}]], "InlineFormula",ExpressionUUID->
  "bfc184ce-6149-4b4b-a4d2-5df2b74f9a3f"],
 "."
}], "Notes",
 CellChangeTimes->{{3.8280048343705263`*^9, 3.828004876188136*^9}, {
  3.82800689381957*^9, 3.828006909591322*^9}, {3.828009487902444*^9, 
  3.828009502616781*^9}},
 CellID->1067943069,ExpressionUUID->"2f786f1c-2344-4bef-97ed-a061e4da2f09"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tech Notes", "TechNotesSection",
 CellID->250839057,ExpressionUUID->"da8de6e2-f50e-4466-8f74-1195bf5a89d0"],

Cell["XXXX", "Tutorials",
 CellID->341631938,ExpressionUUID->"e1edaba6-14d4-493d-967e-ab2b49e2f61b"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905,ExpressionUUID->"8d2e4b42-3f1f-4fda-9065-bdb5de742079"],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860,ExpressionUUID->"549370f2-2a22-4244-90b3-6ae31eea748a"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535,ExpressionUUID->"1218faa7-c18d-4eff-9a36-a4048d7b6b51"],

Cell["XXXX", "RelatedLinks",
 CellID->1038487239,ExpressionUUID->"dfccd913-5621-47e5-ac70-28b83aef4a2d"]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704,ExpressionUUID->"e1b77b9c-87a2-4d83-b69a-076fc77c8bb2"],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["Blacker",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Blacker"]], "InlineFormula",
  ExpressionUUID->"a15db20b-8c84-459b-b02a-74b5a0812f3a"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Bluer",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Bluer"]], "InlineFormula",
  ExpressionUUID->"0793ade3-fd8b-4cd9-b43c-66b986c4e741"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Grayer",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Grayer"]], "InlineFormula",
  ExpressionUUID->"25e089b5-31d6-4960-9e5e-a0a78991014f"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Greener",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Greener"]], "InlineFormula",
  ExpressionUUID->"8745931f-c2dc-403e-82e1-fa042164a716"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Oranger",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Oranger"]], "InlineFormula",
  ExpressionUUID->"ad7cf8db-4770-4944-acc6-54de48ad33dc"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Pinker",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Pinker"]], "InlineFormula",
  ExpressionUUID->"4060dfe5-8dcb-4d96-b35b-76d724aab60c"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Purpler",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Purpler"]], "InlineFormula",
  ExpressionUUID->"5ec14cf4-121d-48ed-a8bc-9774ae3fe420"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Redder",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Redder"]], "InlineFormula",
  ExpressionUUID->"0c653f21-8a43-43ae-9494-f069da2ac3f6"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Whiter",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Whiter"]], "InlineFormula",
  ExpressionUUID->"582e5523-76d5-4da7-93ee-2b58fa96786d"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["Yellower",
   BaseStyle->"Link",
   ButtonData->"paclet:Prototypes/ref/Yellower"]], "InlineFormula",
  ExpressionUUID->"d1f97940-438c-4f39-b8db-042d0eb342a1"]
}], "SeeAlso",
 CellChangeTimes->{{3.828010484335821*^9, 3.828010515565508*^9}},
 CellID->929782353,ExpressionUUID->"8d32bc72-b56f-44d7-bc63-b75b5eb60922"]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248,ExpressionUUID->"090ecd4e-77ab-48e0-ba7a-1f9acccd0dd5"],

Cell["XXXX", "MoreAbout",
 CellID->1665078683,ExpressionUUID->"4cde9453-fd13-4c75-8f97-91cc14ef1142"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151,ExpressionUUID->"4d971e0b-a467-44b1-b908-78f8a7482a42"],

Cell[TextData[{
 "Blend various colors with ",
 Cell[BoxData[
  ButtonBox["Green",
   BaseStyle->"Link"]], "InlineFormula",ExpressionUUID->
  "a18b42c9-1059-47b2-a85b-8927c9f798b2"],
 ":"
}], "ExampleText",
 CellChangeTimes->{{3.828004777412812*^9, 3.828004799553646*^9}, {
  3.828006926879466*^9, 3.828006930462759*^9}, {3.828009515802176*^9, 
  3.828009519972816*^9}},
 CellID->352052385,ExpressionUUID->"bb097b32-98d8-4922-8531-636645a650a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"AssociationMap", "[", 
  RowBox[{"Greener", ",", 
   RowBox[{"{", 
    RowBox[{"Red", ",", "White", ",", "Yellow"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.828004721982737*^9, 3.828004750490485*^9}, {
  3.828006932672038*^9, 3.828006958960718*^9}, {3.828009522061719*^9, 
  3.8280095249594812`*^9}},
 CellLabel->"In[9]:=",
 CellID->1512834444,ExpressionUUID->"ac5e3129-808b-43cb-9a52-05c30ad3a013"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[1, 0, 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[0.6666666666666666, 0., 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          RowBox[{"1", ",", "0", ",", "0"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0, 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[1, 0, 0],
     Editable->False,
     Selectable->False], "\[Rule]", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[
           Rational[2, 3], 
           Rational[1, 3], 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[0.4444444444444444, 0.2222222222222222, 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          RowBox[{
            FractionBox["2", "3"], ",", 
            FractionBox["1", "3"], ",", "0"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
            Rational[2, 3], 
            Rational[1, 3], 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[
      Rational[2, 3], 
      Rational[1, 3], 0],
     Editable->False,
     Selectable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {GrayLevel[1], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->GrayLevel[0.6666666666666667],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"GrayLevel", "[", "1", "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[1]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["GrayLevelColorValueSelector"], {
            0, {Left, Bottom}}, {Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     GrayLevel[1],
     Editable->False,
     Selectable->False], "\[Rule]", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[0.6666666666666667, 1., 0.6666666666666667], 
          RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[
         0.44444444444444453`, 0.6666666666666667, 0.44444444444444453`],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          
          RowBox[{"0.6666666666666667`", ",", "1.`", ",", 
            "0.6666666666666667`"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = 
          RGBColor[0.6666666666666667, 1., 0.6666666666666667]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[0.6666666666666667, 1., 0.6666666666666667],
     Editable->False,
     Selectable->False]}], ",", 
   RowBox[{
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[1, 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[0.6666666666666666, 0.6666666666666666, 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          RowBox[{"1", ",", "1", ",", "0"}], "]"}], NumberMarks -> False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 1, 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[1, 1, 0],
     Editable->False,
     Selectable->False], "\[Rule]", 
    InterpretationBox[
     ButtonBox[
      TooltipBox[
       GraphicsBox[{
         {GrayLevel[0], RectangleBox[{0, 0}]}, 
         {GrayLevel[0], RectangleBox[{1, -1}]}, 
         {RGBColor[
           Rational[2, 3], 1, 0], RectangleBox[{0, -1}, {2, 1}]}},
        AspectRatio->1,
        DefaultBaseStyle->"ColorSwatchGraphics",
        Frame->True,
        FrameStyle->RGBColor[0.4444444444444444, 0.6666666666666666, 0.],
        FrameTicks->None,
        ImageSize->
         Dynamic[{
          Automatic, 
           1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
            Magnification])}],
        PlotRangePadding->None],
       StyleBox[
        RowBox[{"RGBColor", "[", 
          RowBox[{
            FractionBox["2", "3"], ",", "1", ",", "0"}], "]"}], NumberMarks -> 
        False]],
      Appearance->None,
      BaseStyle->{},
      BaselinePosition->Baseline,
      ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
        If[
         Not[
          AbsoluteCurrentValue["Deployed"]], 
         SelectionMove[Typeset`box$, All, Expression]; 
         FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
         FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[
            Rational[2, 3], 1, 0]; 
         FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
         MathLink`CallFrontEnd[
           FrontEnd`AttachCell[Typeset`box$, 
            FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
            Left, Top}, 
            "ClosingActions" -> {
             "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
      DefaultBaseStyle->{},
      Evaluator->Automatic,
      Method->"Preemptive"],
     RGBColor[
      Rational[2, 3], 1, 0],
     Editable->False,
     Selectable->False]}]}], "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.8280047268657303`*^9, 3.8280047509182377`*^9}, {
   3.82800693385812*^9, 3.828006959315884*^9}, 3.828009525693493*^9},
 CellLabel->"Out[9]=",
 CellID->1229026592,ExpressionUUID->"5e2ccdd2-93fe-428b-9ad2-981ea0ba911c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968,ExpressionUUID->"425196a0-6ab6-461d-bba1-ce867ef01354"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Scope", "ExampleSection",ExpressionUUID->
   "32e79d70-f7af-47ff-bb41-513374ef55db"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265,ExpressionUUID->"6d08f999-4c69-4709-9b28-82906be6ee75"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Generalizations & Extensions", "ExampleSection",ExpressionUUID->
   "a148ce84-caec-4483-aa99-5b7bd6d55bf1"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627,ExpressionUUID->"85bb6475-fccb-4f83-9c4c-95411a492aa7"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell[
  "Options", "ExampleSection",ExpressionUUID->
   "b26b6366-7922-4236-a426-38c0f5de13f0"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341,ExpressionUUID->"3276b1d7-cf51-4f3b-970a-56b0e7c469f0"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "2b1687fc-36b1-4429-beec-1c8514e1a5ee"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783,ExpressionUUID->"f43b442d-f23e-485c-8f19-d9411a527753"],

Cell[BoxData[
 InterpretationBox[Cell[
  "XXXX", "ExampleSubsection",ExpressionUUID->
   "b2994d78-8630-4e4e-92fc-2e3b6b00febf"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749,ExpressionUUID->"7118f2cb-cf49-4930-a588-b368e1d6d7eb"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[Cell[
  "Applications", "ExampleSection",ExpressionUUID->
   "d5715ee2-1cae-4f33-89b2-0e99ea9caa6e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157,ExpressionUUID->"1cd6234d-1e3c-431d-9989-71f3025eee95"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Properties & Relations", "ExampleSection",ExpressionUUID->
   "d18b1e1f-4c4c-49a5-bb54-1e5e145ddf4e"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759,ExpressionUUID->"0e0d5f37-f3c9-4474-a22b-9f10dcc8b438"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Possible Issues", "ExampleSection",ExpressionUUID->
   "dda06a82-eb41-4b48-8510-6cb821647761"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373,ExpressionUUID->"9397dd0b-9de4-443a-9371-be2b75148f2f"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Interactive Examples", "ExampleSection",ExpressionUUID->
   "e1fe5ce4-66df-44f8-b96d-14ea9265eaf2"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318,ExpressionUUID->"c5507407-1b71-491f-84b6-3f5747264ef7"],

Cell[BoxData[
 InterpretationBox[Cell[
  "Neat Examples", "ExampleSection",ExpressionUUID->
   "898193c6-0d9f-4097-90dd-7bc455972e43"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740,ExpressionUUID->"ce9d5678-57c6-4712-bdd3-87904919f71e"]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{4, Automatic}, {Automatic, 0}},
TaggingRules->{
 "WelcomeScreenSettings" -> {"FEStarting" -> False}, 
  "DocuToolsSettingsInternal" -> {
   "$ApplicationName" -> "Pubs", "$LinkBase" -> "Pubs", 
    "$ApplicationDirectory" -> "/Users/arnoudb/docs/Pubs/", 
    "$DocumentationDirectory" -> 
    "/Users/arnoudb/docs/Pubs/Documentation/English/", "$UseNewPageDialog" -> 
    "", "$PacletVersion" -> "0.10.2252"}, "Author" -> "arnoudb", 
  "CreationDate" -> "04-21-2021 10:11:57"},
CellContext->"Global`",
FrontEndVersion->"12.3 for Mac OS X ARM (64-bit) (April 20, 2021)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStylesExt.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"311e6876-c315-4509-9972-cb71502fc0d7"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[21805, 625, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"425196a0-6ab6-461d-bba1-ce867ef01354",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 25449, 725}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 669, 15, 24, "History",ExpressionUUID->"41ad31a0-26a3-4ff8-927a-44db3e715f95",
 CellID->1247902091],
Cell[1230, 37, 140, 1, 20, "AuthorDate",ExpressionUUID->"0bcdcec1-3c1b-44af-b306-2fa91a2ee0d8",
 CellID->2016299425],
Cell[CellGroupData[{
Cell[1395, 42, 123, 1, 29, "CategorizationSection",ExpressionUUID->"cafb9ccb-a6be-4c86-85f0-5849c5345f3a",
 CellID->1122911449],
Cell[1521, 45, 134, 2, 30, "Categorization",ExpressionUUID->"d3672960-eef7-49f2-a47e-fce423fec36a",
 CellID->686433507],
Cell[1658, 49, 138, 2, 30, "Categorization",ExpressionUUID->"e9337bb6-80d8-4427-9444-53c8416845ec",
 CellID->605800465],
Cell[1799, 53, 135, 2, 30, "Categorization",ExpressionUUID->"a09e9c4d-8ab9-4ae7-b585-c517016e8191",
 CellID->468444828],
Cell[1937, 57, 122, 1, 30, "Categorization",ExpressionUUID->"f4c50626-70ea-4938-af51-c60e63c76466"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2096, 63, 110, 1, 29, "KeywordsSection",ExpressionUUID->"ef06640c-42c9-4c00-9a6c-9b632e3752b6",
 CellID->477174294],
Cell[2209, 66, 100, 1, 19, "Keywords",ExpressionUUID->"5526fed3-9f52-4745-8ea1-58ff8c36c14d",
 CellID->1164421360]
}, Open  ]],
Cell[CellGroupData[{
Cell[2346, 72, 120, 1, 29, "TemplatesSection",ExpressionUUID->"119176c2-887f-409f-a0c9-b72561b7624c",
 CellID->1872225408],
Cell[2469, 75, 149, 2, 27, "Template",ExpressionUUID->"1b15e1f4-90c6-45fb-bbe0-ea52939f5d72",
 CellID->1562036412],
Cell[2621, 79, 137, 2, 27, "Template",ExpressionUUID->"9e18a772-50d9-48d2-8436-649cdc9f97ec",
 CellID->158391909],
Cell[2761, 83, 136, 2, 27, "Template",ExpressionUUID->"1e946dbb-3373-40d7-b302-c6d742eac1b9",
 CellID->1360575930],
Cell[2900, 87, 137, 2, 27, "Template",ExpressionUUID->"aee0c783-3703-4eff-afcc-bcf11e35c648",
 CellID->793782254]
}, Open  ]],
Cell[CellGroupData[{
Cell[3074, 94, 105, 1, 63, "ObjectName",ExpressionUUID->"8393d601-4014-44ba-afc9-60862df940ec",
 CellID->1224892054],
Cell[3182, 97, 2038, 56, 120, "Usage",ExpressionUUID->"abc9463c-f4fe-465f-b4d2-0e83cf641444",
 CellID->982511436],
Cell[5223, 155, 835, 24, 28, "Notes",ExpressionUUID->"2f786f1c-2344-4bef-97ed-a061e4da2f09",
 CellID->1067943069]
}, Open  ]],
Cell[CellGroupData[{
Cell[6095, 184, 113, 1, 44, "TechNotesSection",ExpressionUUID->"da8de6e2-f50e-4466-8f74-1195bf5a89d0",
 CellID->250839057],
Cell[6211, 187, 100, 1, 16, "Tutorials",ExpressionUUID->"e1edaba6-14d4-493d-967e-ab2b49e2f61b",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[6348, 193, 138, 1, 31, "RelatedDemonstrationsSection",ExpressionUUID->"8d2e4b42-3f1f-4fda-9065-bdb5de742079",
 CellID->1268215905],
Cell[6489, 196, 113, 1, 16, "RelatedDemonstrations",ExpressionUUID->"549370f2-2a22-4244-90b3-6ae31eea748a",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[6639, 202, 120, 1, 31, "RelatedLinksSection",ExpressionUUID->"1218faa7-c18d-4eff-9a36-a4048d7b6b51",
 CellID->1584193535],
Cell[6762, 205, 104, 1, 16, "RelatedLinks",ExpressionUUID->"dfccd913-5621-47e5-ac70-28b83aef4a2d",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[6903, 211, 110, 1, 31, "SeeAlsoSection",ExpressionUUID->"e1b77b9c-87a2-4d83-b69a-076fc77c8bb2",
 CellID->1255426704],
Cell[7016, 214, 2290, 62, 40, "SeeAlso",ExpressionUUID->"8d32bc72-b56f-44d7-bc63-b75b5eb60922",
 CellID->929782353]
}, Open  ]],
Cell[CellGroupData[{
Cell[9343, 281, 112, 1, 31, "MoreAboutSection",ExpressionUUID->"090ecd4e-77ab-48e0-ba7a-1f9acccd0dd5",
 CellID->38303248],
Cell[9458, 284, 101, 1, 16, "MoreAbout",ExpressionUUID->"4cde9453-fd13-4c75-8f97-91cc14ef1142",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[9596, 290, 411, 11, 70, "PrimaryExamplesSection",ExpressionUUID->"4d971e0b-a467-44b1-b908-78f8a7482a42",
 CellID->880084151],
Cell[10010, 303, 445, 11, 26, "ExampleText",ExpressionUUID->"bb097b32-98d8-4922-8531-636645a650a2",
 CellID->352052385],
Cell[CellGroupData[{
Cell[10480, 318, 431, 9, 27, "Input",ExpressionUUID->"ac5e3129-808b-43cb-9a52-05c30ad3a013",
 CellID->1512834444],
Cell[10914, 329, 10842, 290, 26, "Output",ExpressionUUID->"5e2ccdd2-93fe-428b-9ad2-981ea0ba911c",
 CellID->1229026592]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21805, 625, 155, 2, 56, "ExtendedExamplesSection",ExpressionUUID->"425196a0-6ab6-461d-bba1-ce867ef01354",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[21963, 629, 242, 5, 33, "ExampleSection",ExpressionUUID->"6d08f999-4c69-4709-9b28-82906be6ee75",
 CellID->1293636265],
Cell[22208, 636, 265, 5, 21, "ExampleSection",ExpressionUUID->"85bb6475-fccb-4f83-9c4c-95411a492aa7",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[22498, 645, 244, 5, 21, "ExampleSection",ExpressionUUID->"3276b1d7-cf51-4f3b-970a-56b0e7c469f0",
 CellID->2061341341],
Cell[22745, 652, 247, 5, 24, "ExampleSubsection",ExpressionUUID->"f43b442d-f23e-485c-8f19-d9411a527753",
 CellID->1757724783],
Cell[22995, 659, 247, 5, 20, "ExampleSubsection",ExpressionUUID->"7118f2cb-cf49-4930-a588-b368e1d6d7eb",
 CellID->1295379749]
}, Open  ]],
Cell[23257, 667, 248, 5, 33, "ExampleSection",ExpressionUUID->"1cd6234d-1e3c-431d-9989-71f3025eee95",
 CellID->258228157],
Cell[23508, 674, 259, 5, 21, "ExampleSection",ExpressionUUID->"0e0d5f37-f3c9-4474-a22b-9f10dcc8b438",
 CellID->2123667759],
Cell[23770, 681, 252, 5, 21, "ExampleSection",ExpressionUUID->"9397dd0b-9de4-443a-9371-be2b75148f2f",
 CellID->1305812373],
Cell[24025, 688, 257, 5, 21, "ExampleSection",ExpressionUUID->"c5507407-1b71-491f-84b6-3f5747264ef7",
 CellID->1653164318],
Cell[24285, 695, 249, 5, 21, "ExampleSection",ExpressionUUID->"ce9d5678-57c6-4712-bdd3-87904919f71e",
 CellID->589267740]
}, Open  ]]
}
]
*)

